Better warning for add-key-val-to-alist

diff --git a/which-key.el b/which-key.el
index d9e7b3a2ffeea05a3f272a96eeb343791cddb7f5..506a95c9a2c042e5e7f25a6f06da5e780eca727a 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -464,9 +464,8 @@ bottom."
   (let ((key-lst (listify-key-sequence (kbd key))))
     (cond ((null alist) (list (cons key-lst value)))
           ((assoc key-lst alist)
-           (message "which-key: the key %s already exists in %s. This addition \
-will override that value."
-                    key alist)
+           (message "which-key: changing %s name from %s to %s"
+                    key (cdr (assoc key-lst alist)) value)
            (setcdr (assoc key-lst alist) value)
            alist)
           (t (cons (cons key-lst value) alist)))))